home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Games / Cards / Klondik1 / Install < prev    next >
Encoding:
Text File  |  1995-08-21  |  7.5 KB  |  311 lines
  1. (complete 0)
  2. (set default_lang 4)
  3.  
  4. (set #bad-kick
  5. (cat "You must be using Kickstart 3.0 to install this game"
  6. ))
  7.  
  8. (set #which-disk
  9. (cat "In which partition should the game be installed?"
  10. ))
  11.  
  12. (set #which-disk-help
  13. (cat "\nThis section lets you choose on which hard drive partition the "
  14.      "Game files will be installed. "
  15.      @askdir-help
  16. ))
  17.  
  18. ;=============================================================================
  19. ; make sure we are running under V39
  20.  
  21. (if (< (/ (getversion) 65536) 39)
  22. (
  23.     (abort #bad-kick)
  24. ))
  25.  
  26. (user 0)
  27. (welcome)
  28. (set old_level @user-level)
  29.  
  30. ;=============================================================================
  31. ; get target directory where game is to be installed
  32.  
  33. (set old_wb ("SYS:"))
  34. (user 2)
  35. (set target (askdir (prompt #which-disk)
  36.             (help #which-disk-help)
  37.             (default "")
  38.             (disk)
  39.             ))
  40. (user old_level)
  41.  
  42. ;=============================================================================
  43. ; get the version from arp.library currently installed
  44.  
  45.     (if (= (exists "Libs:arp.library") 0)
  46.         (
  47.         (copyfiles (source "REKO01:")
  48.                    (dest "LIBS:")
  49.                    (pattern "arp.librar#?")
  50.         )
  51.         )
  52.     )
  53.  
  54. (complete 5)
  55.  
  56. (copyfiles (source "REKO01:")
  57.            (dest "RAM:")
  58.            (pattern "lz")
  59. )
  60.  
  61. (set workingMsg ("Extracting files from Main archive"))
  62.  
  63. (working workingMsg)
  64.  
  65. (run ("RAM:lz x REKO01:MAIN.LZH ram:"))
  66.  
  67. (complete 15)
  68.  
  69. (makedir (tackon target "REKO-Productions"))
  70. (set wtarget target)
  71.  
  72. (copyfiles (source "RAM:REKO.infa")
  73.            (dest wtarget)
  74. )
  75.  
  76. (rename (tackon wtarget "REKO.infa") (tackon wtarget "REKO-Productions.info"))
  77.  
  78. (set target (tackon target "REKO-Productions"))
  79. (set @default-dest target)
  80. (set wtarget target)
  81.  
  82. ;=============================================================================
  83. ; get the version from medplayer.library currently installed
  84.  
  85.     (if (= (exists "Libs:medplayer.library") 1)
  86.         (
  87.         (protect "Libs:medplayer.library" "+rwed")
  88.         )
  89.     )
  90.     (copylib
  91.         (prompt    ("Copying %s to %s" "RAM:medplayer.library" "Libs:"))
  92.         (help    copyLibFileHelp
  93.             "\n"
  94.             "If you already have a copy of this library in the selected destination directory, the library "
  95.             "included on the distribution disk will be compared to the one you "
  96.             "already have. If your current library is an old version, the newer "
  97.             "version will be installed.\n"
  98.             "\n"
  99.             @copylib-help
  100.         )
  101.         (source "RAM:medplayer.library")
  102.         (dest "Libs:")
  103.         (confirm)
  104.     )
  105.  
  106. (complete 20)
  107.  
  108. ;=============================================================================
  109. ; Put REKOCHARS in Fonts: directory
  110.  
  111. (copyfiles (source "RAM:")
  112.        (dest "FONTS:")
  113.        (pattern "REKOCH#?")
  114. )
  115.  
  116. ;=============================================================================
  117. ; Put REKO commands in C: directory
  118.  
  119. (copyfiles (source "RAM:REKO")
  120.        (dest "C:")
  121. )
  122.  
  123. (copyfiles (source "RAM:ShowREKO")
  124.        (dest "C:")
  125. )
  126.  
  127. (copyfiles (source "RAM:StripREKO")
  128.        (dest "C:")
  129. )
  130.  
  131. ;=============================================================================
  132. ; make some new drawers
  133.  
  134. (makedir (tackon wtarget "PICS"))
  135. (makedir (tackon wtarget "MUSIC"))
  136. (makedir (tackon wtarget "CARDS"))
  137.  
  138.  
  139. (copyfiles (source "RAM:REKO.infa")
  140.        (dest wtarget)
  141. )
  142. (rename (tackon wtarget "REKO.infa") (tackon wtarget "MAKE-CARDS.info"))
  143.  
  144. (copyfiles (source "RAM:REKO.infa")
  145.        (dest wtarget)
  146. )
  147. (rename (tackon wtarget "REKO.infa") (tackon wtarget "CARDS.info"))
  148.  
  149. (copyfiles (source "RAM:")
  150.        (dest wtarget)
  151.        (pattern "MAKE#?")
  152. )
  153.  
  154. (delete (tackon wtarget "MAKE-CARDS/PREF-Frames"))              
  155. (delete (tackon wtarget "MAKE-CARDS/Example4"))                 
  156. (delete (tackon wtarget "MAKE-CARDS/Example3"))                 
  157. (delete (tackon wtarget "MAKE-CARDS/Example2"))                 
  158. (delete (tackon wtarget "MAKE-CARDS/Example1"))                 
  159.  
  160. (copyfiles (source "RAM:KlondikeIII.info")
  161.        (dest wtarget)
  162. )
  163.  
  164. (copyfiles (source "RAM:KlondikeIII")
  165.        (dest wtarget)
  166. )
  167.  
  168. (if (= (exists (tackon wtarget "REKO.Prefs")) 1)
  169.     (
  170.     (rename (tackon wtarget "REKO.Prefs") (tackon wtarget "REKO.Prefs.OLD"))
  171.     )
  172. )
  173.  
  174. (if (= (exists (tackon wtarget "REKO.Prefs.info")) 1)
  175.     (
  176.     (rename (tackon wtarget "REKO.Prefs.info") (tackon wtarget "REKO.Prefs.OLD.info"))
  177.     )
  178. )
  179.  
  180. (copyfiles (source "RAM:StdPrefs.REKO")
  181.        (dest wtarget)
  182. )
  183.  
  184. (copyfiles (source "RAM:REKO.Prefs.info")
  185.        (dest wtarget)
  186. )
  187.  
  188. (copyfiles (source "RAM:REKO.Prefs")
  189.        (dest wtarget)
  190. )
  191.  
  192. (copyfiles (source "RAM:ShowREKO.Docs.info")
  193.        (dest wtarget)
  194. )
  195.  
  196. (copyfiles (source "RAM:ShowREKO.Docs")
  197.        (dest wtarget)
  198. )
  199.  
  200. (copyfiles (source "RAM:REKO.Guide.info")
  201.        (dest wtarget)
  202. )
  203.  
  204. (copyfiles (source "RAM:REKO.Guide")
  205.        (dest wtarget)
  206. )
  207.  
  208. (complete 25)
  209.  
  210. (copyfiles (source "RAM:")
  211.        (dest wtarget)
  212.        (pattern "REKO.Docs#?")
  213. )
  214.  
  215. (copyfiles (source "RAM:FullView")
  216.        (dest wtarget)
  217. )
  218.  
  219. (copyfiles (source "RAM:")
  220.        (dest wtarget)
  221.        (pattern "REKO.QRCard#?")
  222. )
  223.  
  224. (complete 30)
  225.  
  226. (set workingMsg ("Extracting files from Pics archive"))
  227.  
  228. (working workingMsg)
  229.  
  230. (delete (tackon wtarget "PICS/Intro.REKO"))                 
  231. (delete (tackon wtarget "PICS/Default.WINP"))                 
  232.  
  233. (set destdir (tackon wtarget "PICS/"))
  234.  
  235. (run ("RAM:lz x REKO01:PICS.LZH \"%s\"" destdir))
  236.  
  237. (complete 45)
  238.  
  239. (set workingMsg ("Extracting files from Music archive"))
  240.  
  241. (working workingMsg)
  242.  
  243. (set destdir (tackon wtarget "MUSIC/"))
  244.  
  245. (run ("RAM:lz x REKO02:MUSIC.LZH \"%s\"" destdir))
  246.  
  247. (complete 65)
  248.  
  249. (set workingMsg ("Extracting files from Cards archive"))
  250.  
  251. (working workingMsg)
  252.  
  253. (delete (tackon wtarget "CARDS/Default.REKO"))                 
  254. (delete (tackon wtarget "CARDS/Standard.REKO"))                 
  255. (delete (tackon wtarget "CARDS/16C-C64.REKO"))                 
  256. (delete (tackon wtarget "CARDS/Puzzled.REKO"))                 
  257. (delete (tackon wtarget "CARDS/AirBrush.REKO"))                 
  258.  
  259. (set destdir (tackon wtarget "CARDS/"))
  260.  
  261. (run ("RAM:lz x REKO03:CARDS.LZH \"%s\"" destdir))
  262.  
  263. (complete 80)
  264.  
  265. (run ("RAM:lz x REKO04:CARDS.LZH \"%s\"" destdir))
  266.  
  267. (complete 95)
  268.  
  269. (delete    "RAM:lz")
  270. (delete "ram:Rekochars.FONT")
  271. (delete "ram:REKO.QRcard.info")        
  272. (delete "ram:REKO.QRcard")              
  273. (delete "ram:REKO.Prefs.info")          
  274. (delete "ram:REKO.Prefs")               
  275. (delete "ram:REKO.infa")                
  276. (delete "ram:REKO.Docs.info")           
  277. (delete "ram:REKO.Docs")                
  278. (delete "ram:ShowREKO.Docs.info")           
  279. (delete "ram:ShowREKO.Docs")                
  280. (delete "ram:REKO.Guide.info")           
  281. (delete "ram:REKO.Guide")                
  282. (delete "ram:Reko")                     
  283. (delete "ram:ShowREKO")                     
  284. (delete "ram:StripREKO")                     
  285. (delete "ram:medplayer.library")        
  286. (delete "ram:KlondikeIII.info")          
  287. (delete "ram:KlondikeIII")               
  288. (delete "ram:FullView")                 
  289. (delete "ram:StdPrefs.REKO")                 
  290.  
  291. (delete "ram:MAKE-CARDS/Various-Frames&Symbols")   
  292. (delete "ram:MAKE-CARDS/REKO-cutter2")             
  293. (delete "ram:MAKE-CARDS/REKO-cutter1")             
  294.  
  295. (delete "ram:MAKE-CARDS/RED/SYMBOLS")                  
  296. (delete "ram:MAKE-CARDS/RED/FRAME")                    
  297. (delete "ram:MAKE-CARDS/RED/CARD01")                   
  298. (delete "ram:MAKE-CARDS/RED/CARD00")                   
  299.  
  300. (delete "ram:MAKE-CARDS/GREEN/SYMBOLS")                  
  301. (delete "ram:MAKE-CARDS/GREEN/FRAME")                    
  302. (delete "ram:MAKE-CARDS/GREEN/CARD01")                   
  303. (delete "ram:MAKE-CARDS/GREEN/CARD00")                   
  304.  
  305. (delete "ram:MAKE-CARDS/BLUE/SYMBOLS")                  
  306. (delete "ram:MAKE-CARDS/BLUE/FRAME")                    
  307. (delete "ram:MAKE-CARDS/BLUE/CARD01")                   
  308. (delete "ram:MAKE-CARDS/BLUE/CARD00")                   
  309.  
  310. (delete "ram:REKOCHARS/22")
  311. (complete 100)